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ACTION PACKED 
HIGH QUALITY 
PD SOFTWARE 
AVAILABLE NOW 



ACIDSOFTWARE PROUDLY ANNOUNCE THE RELEASE 
OF BLITZ PD DISKS 1 & 2. FOUR ACTION PACKED 
GAMES A VAILABLE NOW FROM YOUR LOCAL PDmm^ 




BLITZ PD DISK 1 

Featuring the ultimate version of the arcade 
chissic. Converted by Bhtz author Mark Sibly. 

Also includes Zombie Apocalypse from Vision 
Software. Get even with the crew from Acid 
software as you blow them away in the most 
blood and guts game ever seen on the Amiga. 



BLITZ PD DISK 2 

Two great examples of standard arcade formats 
developed in Blitz 2 by Vision Software. 



TIIK BLITZ PD PHILOSOPHY 

We at Acid Software aim to set a new slantlard in 
Amiga PD Software. 

All disks released in (he Mlii/. PD Library will 
contain lilitz 2 .source code to the games and 
applications included. 

Disks 3&.4 will be available soon featuring 
another 2 arcade games plus a disk of 
applications developed for the Amiga graphics 
user. 
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IM) Library enc|iiiries welcome. Fax or write to Acid Software for more details: 

Acid Software 

10 St Kevins Arcade, K Rd. 

Auckland, New Zealand 

fx: 64-9-358-1658 
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Welcome to the very first 
Blitz User magazine. As Blitz 
becomes a more established 
product we hope to do great 
things with this publication. 

A colour cover would be 
nice, a cover disk is a defmate 
possibility, heaps of freebies, 
more user contributions would 
be most excellent, but hey, you 
got to start somewhere. 

First up, there's a lot of 
topics to be covered, and a 
wide range of programming 
skills to be catered for. 

When you send in your 
subscription please let us 
know what you want, how 
much, why, when, what for... 

When you send in your 
contributions remember 
there's all sorts using Blitz 
BASIC. I'd like to include a lot 
more stuff for beginners and 
maybe some decent educational 
type programs. My apologies if 
this issue is a little too 
advanced, next issue we'll have 
heaps more for the beginner. 
Any contributions in this area 
would be more than 
appreciated. 

In this first issue we've 
covered using the tools that 
come on the program disk in 
some depth. That's the main 
reason you get the first issue 
free in the box. 

IntuiTools lets you create 
user interfaces for your 
applications, the tutorial takes 
you through using IntuiTools to 
develop a simple Phone Book 
type database program. 

ShapesMaker is for laying 
out your animated objects and 
then converting them to Blitz 2 
shapes files. The tutorial delves 
into animation using Dpaint 3 
and then taking that animation 
and running it in your Blitz 
program. More sophisticated 
Anim-Biush su|i|x)rt is on its 



way to simplify this process. 

Then there's a couple of 
type-in libraries. This material 
is aimed at expanding your 
Blitz. The speech library uses 
the standard Amiga message 10 
to let you drive the synthesiser 
without the overhead of the 
DOvS speak: device. Tlie serial 
port library is for Blitz mode 
type applications where 
inefficient system drivers just 
can't deliver. Ever tried getting 
the serial port working in 
AmigaBasic? Enough said... 

Part 1 of an arcade game is 
included, in less than 200 lines 
of code you'll be flying around, 
firing and chasing nasty aliens 
around the place. Time to ring 
up your graphic artist for some 
better looking!aliens though... 

Then there's heaps of hints 
and tips for getting on top of 
different aspects of 
programming in Blitz BASIC. 

Over the next several issues 
we've got a lot of material to 
cover regarding all the new 
features we've added to Blitz 2. 

So, hopefully after viewing 
the amount of useful 
information we've been able to 
include in this first Blitz User 
you'll want more and 
subscribe. The more 
subscriptions we get the more 



we will be able to do with this 
magazine. 

As far as rumours go, yes 
there is a 3D library and yes I 
think its pretty fast. However 
due to commitments in getting 
Blitz 2 into production the 3D 
launch has been delayed for 
another couple of months. 
However by then you can 
expect a real slick package that 
delivers more than some ever 
dared to promise. Hold onto 
your hats! 

A full Arexx command set is 
also near release so your Blitz 2 
applications can have full 
Arexx handles attached. 

As I write this, the first 1000 
Blitz BASICS wait quietly 
beside the door. Waiting to be 
exported around the world. Not 
only is there 1 .5 kgs of manuals 
in each box but 2 years of hard 
work from Mark. It's up to me 
to see that they are properly 
marketed and yes, I need your 
help. 

So, subscribe to Blitz User, 
let your friends and the 
magazines know what you 
think of Blitz 2, but most 
importantly get creative and 
enjoy your programming. 



Cheers, 



cheers, 
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The following section 
is for publishing any 
correspondence received 
at Acid Software in New 
Zealand. To write to us 
please use the following 
address: 

Acid Software 

10 St Kevins Arcade 

1 83 Karangahape Road 

Auckland 

New Zealand 

If you have a fax our 
number is: 

64-9-358-1658 

The leading 64 is the 
international area code 
for New Zealand. 

vSeeing as this issue has 
been compiled before the 
official launch of Blitz 2 
we thought we'd wrilc lo 
ourselves to gel this 
section started... 



DearBlitzMan, 

After receiving my 
new Blitz 2 I just 
couldn't beleive what 
seriously heavy software 
you guys have come up 





with. Blitz 2 has got to 
be the heaviest software 
available for the Amiga! 
I had to get my sister to 
help me get it up the 
stairs and Dad has 
reinforced my computer 
desk so it could hold the 
weight. 

So, how do you get 
something so heavy to go 
so fast? I asked my 
physics teacher and he 
said it is not weight but 
mass that is important 
when delving into such 
physical relationships. 

I got this nerdy friend 
who's into copying 
software and he couldn't 
even pick the box up! 

Don't worry he's in 
hospital now cos he 
dropped it on his foot 
and is now suffering 
massive brain damage. 

Signed, 

REAL HEAVY! 



Yo Dudes, 

Totally awesome! 
Mind expanding. Wow 
wow wow wow. But hey, 
what do 1 do? 1 can't 
make up my mind 



whether to write a kill 
the mutant drug addicts 
from the intergalactic 
scum bucket or develop 
this program for my 
Mum's dating agency. 
Signed, 

Seriously Undecided. 



Dear Acid Software, 

I don't usually write to 
companies with such 
unreputable names such 
as yours but after using 
Blitz 2 I felt compelled 
to write a letter of 
congratulations. 

I have an Amiga 3000 
with an 040 card, 16 
megabytes of ram and 4 
gigabytes of disk storage. 

Now I've got Blitz 2 I 
can make do with a plain 
old Amiga 500 so I'm 
selling off the hardware 
and using the money to 
finance a certain 
chemistry experiment 
you boys might be very 
interested in. 

Signed, 

Bubblint^ Over. 



Dear Sir, 

May I congratulate you 
on the great centre-fold 
in last months issue of 
your fine magazine. She 
was so hot I was unable 
to program my home 
computer for more than 
10 minutes without 
stopping to admire her 
amazing bod. 

Hncloscd is a 
subscription to your great 
magazine for the next 15 
years (don't forget the 
plain brown envelope) . 

Please keep it up. 

Signed 

Wrong Mag. 



DearBlitzman, 

I'm having a big 
problem with life. Living 
in the 90's just doesn't 
seem to be that cool 
anymore, facists are 
everywhere, there's no 
work and everybody is 
totally negative. 

I wonder if other Blitz 
users out there are 
interested in forming 
some sort of international 
be-cool and totally- 
together club. 

I'd like to here from 
others in different places 
alx)ut what can be done 
with the world and some 
of the uglier people in it. 



Signed 
Lessthan Hopeful 

Dear Sir, 

It was only a freak 
accident that I came 
across your package 
Blitz BASIC 2. 1 hope 
you have some mega 
promotional malerial 
planned to make Blitz 
known to all Amiga 
users around the place. 

1 am sure some of my 
ideas could well realise 
the international acclaim 
Blitz deserves. 

Signed, 

Gizza Marketing Jobby 



Dear Sir, 

It was with great 
displeasure that the 
rumoured 3D capabilities 
of Blitz 2 have not yet 
been delivered. I have 
nearly finished a large 
model of an interglacatic 
space station which I 
plan to turn into a serious 
piece of arcade software 
with your planned 3D 
library. So, where is it 
and how fast is it now? 

Signed, 

I lurryup Andcliver 



Hopefully next issue 
we can have some 
serious letters from some 
actual Blitz users, so any 
problems, complaints, 
thoughts or silliness, put 
pen to paper and send 
them in. 

Hey, we might even 
have some totally cool 
Blitz 2 T-shirts to give 
away in the next issue. 



DISCLAIMER: The 
views, atiiiucles and 
ideas expressed in this 
section are not 
necesarily in agreement 
with the editors of this 
magazine. 



J 




The following are a list of 
relatively serious errors in the 
Blitz 2 manuals. This list will 
be added to as they are 
reported, spelling mistakes and 
typos shall be accepted as part 
of life and left but you should 
turn to the pages following and 
make the necesary changes... 



Ri:i ERENCE MANUAL 



PACE 19-3 

Slice Hag table, woza, where 
did the tabs go? Max Bitplanes 
should be in their own box to 
the right 6, 4, 6, 4 & 6. 

OK not that it\s disasterous 
but a little disconceding. 



PA(;E24-1 

What cxtentled form of the 
SCRIiliN command? Whals 
Viewmodc? Infacl not much 
discussion here at all really... 

X,Y are offsets from the 
preferences screen position 
sellings so leave 0,0 unless you 
want yoiu" screen to open in 
some weird place on the 
monitor. 

Width, Height & Depth: yup 
obvious. An example? how 
about 32(),2(){),5. 

ViewMode: alrighty just like 
liPLConO, hmm just use the 
Ibllowing (add them together 
for legal combinations), more 
info is available in the graphics 



library includes and the like 



lores=0 

genlock=2 

interlace=4 

*superhire=$20 

*pfba=$40 

extra haltbrite=$80 

genlock audio=$IOO 

dualplayfield=$400 

ham=$8(X) 

hires=$8000 

Note: * means ECS Amigas 
only and because of the 
extended OS 2.0 structures not 
yet supported in Blitz 2. If you 
want them please ask us nicely. 

PAGE A4-6 

Wo here's a serious one that 
stuffed me up for a day. Here I 
was thinking it would be nice 
for a comprehensive list of 
hardware registers in the 
back and I stuff up BITCONO 
andBLTCONI! 

In most Amigas you will find 
them l(Kated at $40 and $42 
NOT at $100 and $102. 



USER CaJIDE 



PAGE 1-5 

The following screen should 
appear? Oops, not if you just 
run Ted as you tlon't get the 
OkeeDokee re(|uester but just 
the TED text editor screen... 
(getting a little picky here 
perhaps?). 



PAGE 1-46 



OK this might have 
happened a few times, seems 
that my Bold keyword 
generator for Pagestream 
missed 9 lines down this page 
and instead of GOTO being 
bold its got an <fP$ before it, 
weird huh? 

PAGE 1-65 

Now this one is slightly 
embarrasing, Mark tells me that 
the header node does not l(X)k 
anything like the first box in the 
diagram, however due to lack 
of space we leave it up to the 
user to correct the diagram (if 
this is ttx) much try colouring it 
in). 



Well maybe there is enough 
r(X)m for a lieader node... 




HO HO HO! 






Statement: Block (add to chapter 21 of the Reference manual) 

Syntax: Block Sha|ie#,X,Y 

Modes: Amiga/Blitz 

Description: 

Blocic is an extremely fast version of the IJlit command with some restrictions. 

Block should only be used with shapes that are 16,32,48,64... pixels wide and that are being blitted 
to an X position of 0,16,32,48,64... 

Block is intended for use with map type displays. 

The height and y destination of the shape are not limited by the Block command. 

Statement: LoadFont (add to chapter 25 should be with WindowFont command) 

Syntax: LoadFont IntuiFont#,Fontname.font$,Y Size 

Modes: Amiga 

Description: 

LoadFont is used to load a font from the fonts: directory. Unlike BlitzFonts any size IntuiFont can be 
used. Well, seeing as this newsletter came out the same time we launched Blitz 2n woukJ be rathef- 
silly to think-we would be reporting-bugs4n^this issuer ^ce a I s.o ; \^(f\(kau ^OrA- 



Function: VPOS (add to chapter 5) 



Syntax: VPos 

Modes: Amiga/Blitz 

Description: 

VPos returns the video's beam vertical position. Useful in both highspeed animation where screen 
update may need to be synced to a certain video beam position (not just the top of frame as with 
VWait) and for a fast random nember generator in non frame-synced applications. 




Being the first issue of Blitz 
User it would be a bit silly if 
we were already reporting bugs 
in this section. However their 
has been a few problems with 
evaluation inside square 
brackets... 

SQUARING UP 

If an evaluation such as: 

jini\son[5-bob\iiumkidsl="BILLY" 

gives spurious results try: 

nuni=5-bob\iiun)kids 
jinAson(iuim]="BILLY" 

We are currently doing more 
tests on such evaluations. 

Rounding off.. 

A few math mat ical issues 
will now be addressed here. 
This discussion is based around 
the complex issue of rounding 
numbers not about some 'bug' 
in the Blitz 2 quick maths 
library or the Amiga's I'ast 
Moating Point library (which 
we use for all floating point 
caicidiitions). 

The only reason this 
discussion is in the Buggy 
Boob(X)s section is because this 
section needs fleshing out a 
bit... , 

Anyway try the following... 

While .!«} h(())^0 

NIViiil a 

a+.l 
Wend 

So where do all the weird 
numbers come from? Try it in 
another BASIC. Now try 
changing the dcfiypc back to 



quick (thats .q). Same problem 
again. 

This is because computers 
are not decimal (base 10) but 
binary (base 2) and have big 
trouble accurately defining a 
number such as 0.1, this is of 
course the same as 1/10. 

To see the binary equivalent 
of .1 try the following: 

a.q=.l 

NPrint Bin$(Pcck.l(&a)) 

MoiiseWait 

This prints in binary the 
contents of the memory 
location where the variable a is 
kept. 

As you can see .1 is a very 
complex number in base 2. 

Whats more when using 
quicks (fixed point maths) 
multiply increases the rounding 
error dramatically: 

a.q=.l 

Print 500*a 
MouseWait 

You can now see why 
rounding errors are such a big 
deal in computer .science. 

The above example remains 
accurate with floating \xmU 
because of the natuie of 
floating point (amount of error 
is absorbed by the change in 
exponent) but rounding still 
increases with sufficient initial 
error. 

Confused? 

Lets just say that if you want 
to do an accounting type 
package in Blitz 2 don't use 
fixed point (quick) types. 

Fast floating jx)int is also 
probably not a good idea as 
when you hit the $260,000 
anything less than a dollar will 



disapear. 

So what should you do? 

Wait for a DoublePrecision 
maths library to be released? 

Don't be silly, just use long 
integers and treat a dollar as 
100 cents. Ha, not only do you 
get to account for numbers up 
to 20 million but you don't 
loose a cent of accuracy either. 

Don't forget to physically 
insert the decimal point two 
digits from the right when you 
print figures. 

Also divide by whole 
numbers rather than 
multiplying by decimal points 
whenever possible. 

As if somebody is going to 
write huge financial programs 
in Blitz 2 anyway... 



Found a bug in Blitz? 

Having problems 
wiCb some of the 
documentation? 

Does something just 
not seem io work the 
way you think it 
should? 

If so, let us know. 

It* you are reporting a 
bug, please remove the 
offending piece of code 

from your program, 
add a small ^shell' to it 
so it is functional and 
send it in. 





To create a map file using 
the MapEdit program, you will 
require at least 1 source file - a 
shapes file created using the 
'SaveShapes' command. 

This file should contain all 
the 'blocks' you wish to use for 
the map. 

The *Sha|XJsmakcr' program 
may also be used to create a 
shapes file. 

You may also want an IFF 
ILBM file to pick up the palette 
information. 

When run, MapEdit will 
bring up a requester asking for 
block and map sizes. MapEdit 
supports block sizes of 
4,8,16,32 or 64 pixels. 

Clicking on the 'FROM 
FILE' gadget will allow you to 
specify a map file from which 
the above information may be 
gleaned. 

Once in MapEdit, you will 
need to load in a shapes file. 
The 'BLOCKS' menu allows 
you to load either shapes, or a 
colour palette. 

The shapes picked up from 
the shapes file will appear as a 
set of gadgets at the top left of 
the screen. The left and right 
arrows may be used to move 
around all available shapes. 

Clicking on an actual block 
will allow you to place the 
block anywhere on-screen 
using the left mouse button. 

Doing so will add that block 
to the map. Clicking on-screen 
using the right mouse button 
will erase a block from the 
map. If the map is larger than 
the screen, the cursor arrow 
keys may be used to scroll 
around the map. The 'GROUP' 
menu allows you to create or 
delete a 'group' of blocks. 

To create a group, first paste 
down the approprate blocks 



onto the map, and then select 
'CREATE' from the 'GROUP' 
menu. You may then select any 
on-screen blocks using the left 
mouse button to make up a 
group of blocks. 

Once done, close the 
miniature CREATE GROUPS 
window at the top of the screen. 
A group may be pasted down or 
deleted in the same way as 
individual blocks. 

Miniatures of any defined 
groups appear at the top right of 
the screen, and may be selected 
at any time by clicking on the 
appropriate group with the left 
mouse button. 

When completed, save your 
map by selecting 'SAVE' from 
the 'PROJECT' menu. 

Maps are saved row by row, 
using 1 byte per map block. A 
map block of indicates an 
'empty' map block, while map 
blocks from 1 onwards indicate 
a shape to use foi' that map 




block. 

Li sling I below is an 
example of reading a map file 
into your own program. This 
map has a block size of 16 by 
16 pixels, and a map size of 20 
by 12 blocks. It dimensions a 
two dimensional array and 
reads the block information 
into the array byte by byte. 

Listing 2 draws up the map 
onto the current bitmap. 

The next issue of Blitz User 
will contain details on adding a 
map based background to a 
game and some hints and tips 
on designing the graphics for 
map type blocks. 



Dimm.b(19,ll) 
LoadShapcs 1 ,"Map.shapes' 
IfRcadFiIe(0,"Mapr') 

Filelnput 

Fory=OToll 

Forx=0Tol9 

m(x ,y )=Asc(Inkey$) 

Next x,y 

CIoscFile 

Dcfaultlnput 
Else 

Endlf 



;dim an array for the map 
' 'Joaci blocks to be used for the map 
,try to open map file 
\get input from file 
;columns... 
;rows... 
\pick up byte from map file 

\close map file 
'.restore input channel 

\Error reading map file! 



Listing 1 

For y=0 To 1 1 
Forx=OTo 19 

If m(x,y) Then Block m(x,y),x*16,y*16 
Next x,y 

Listing 2 



The following is a listing for 
a serial port library. Before 
proceeding you should be 
familiar with the Blitz 2 
Libraries chapter in the User 
Guide and have already tried 
the simple Library on page 1- 
53. 

As an overview, the seriallib 
is a high speed serial port driver 
intended for use in Blitz mode. 
Adding resource allocation to 
the _opeiiserial routine is 
needed for it to properly behave 
in Amiga mode applications. 

Extra commands that do 
block reads and writes will be 
added in the next issue as well 
as information for syncing null- 
modem type games. 

Driving the Commodore 
nuilti serial port card will also 
be addressed in the near future. 

Circular buffers are used for 
both read and write buffers. A 
cirular buffer simply 'wraps 
round' at the end and can be 
thought of as a never ending 
loop. Two pointers are 
required, beginning and end, 
when they are equal the buffer 
is empty. When either pointer 
is incremented it is logically 
'anded' with 255 (5 11 in the 
write biiUcr) which has the 
cITccl of wra|)|)ing it round lo 
the beginning. 

To access the buffer PC 
with displacement addressing is 
used, *rend(PC,dO)* generates 
the address in memory at rend 
+ the displacement in register 
dO. 

Both buffers are LIFO- last 
in first out, to add a byte, write 
it to the location ix)inted to by 
the end pointer and increment 
the |X)inter, to read, read from 
the lieginning pointer and then 
increment it. Simple and 
eHicient. 

st'tbaud: This routine 
calculates the baudraie for the 



#serlib=49 

llibheader {#serlib.O.O,finit,0) 

lastatement 

!args {#long) 

!Iibs 

!subs {_setbaud,0,01 

!name { "SetBaud","rate" } 

lastatement 

largs 

llibs 

Isubs {„openserial,0,0} 

Iname {"OpcnSerial","") 

lastatement 

largs 

llibs 

Isubs {_closeserial,0,0) 

Inamc ("CloseSerial","") 

lafunction (#long) 

largs 

llibs 

Isubs {_readser,0,0) 

Iname ("ReadSer"," returns next byte -1 if empty ") 

lastatement 

largs {#word} 

llibs 

Isubs {_writeser,0,0} 

Iname {"WriteScr","byte") 

rmit:!nullsub(Jibrinit.O.O) 

llibnn 

#serdal=$(llT030 
#serdatr=$dff()18 
#serper=$diY()32 

#inlcna=$illl(Wa 
//iiilciiai-$drt()lc 
#inlrcq=$<lll()9c 
«intrcqr=$dll()lc 

_selbaud: 

MOVE.I#3546895,dl;EXG dO,dl:ALibJsr $cb01 
SIJBQ #1 ,dO:BCLR #15.dO:MOVE.w dO,serper:RTS 

_openserial: 

TST.w openflag:BNE okok 
MOVE.I$74,01dInt5+2:MOVE.I$64,01dIntl+2 
MOVE.I#Rcadlnt,$74:MOVE.l#V/rileInt,$64 
CLR.Irbig:CLR.lwbig:MOVEM$3f.$bfd()00 
MOVE.winlenar.OldInt:MOVE.w#$c801,inlena 
MOVE.w #- 1 .opennag:okok:RTS 

o|)ennag:l)c.w 

Jibfinit: 

_closcserial: 



hiiidwarc rcgislcr scr|)cr. 'I'hc 
AlilUsr $cb()l calls the internal 
Blitz long divide command. 
The constant #3546895 is the 
PAL constant as found in the 
Amiga Hardware Manual (page 
25 1). NTSC machines should 
use #3579545. 

_opcnserial: This routine 
saves the old interupt vectors 
and pokes in the new ones. 
Writing #$c8() I tointena 
(interrupt enable) enables both 
the read and write serial 
interupts. 

_cioseserial: If the serial lib 
has been opened (openflag set) 
the old interupts are restored 
and the interupt register is 
restored to its previous state. 

_readscr: Checks the read 
buffer, if there*s a byte waiting 
it returns it else returns a - 1 . 

Readint: When ever the 
serial port is full, Readint reads 
the byte from the serdatr 
hardware register and adds it to 
the read buffer. 

_writcscr: Adds the byte 
sent by the user to the write 
buffer, if the write buffer is 
empty, generates an interupt so 
the byte is immediately 
outputted to the serial port. 

Writelnt: When ever the 
serial port empties it's write 
register this interupt is 
generated, if there is another 
byte in the buffer then that gets 
wriUcn to the serdat hardware 
register. 

Note: this library is set up as 
8 hit no parity, the write l)iilTcr 
uses words not hylcs so llic I 
data bit can he generated 
outside the interupt. 

As you can see in Listing I , 
I've used more than I machine 
code instruction per line. I'm 
use to it, as you can see, you 
can fit heaps more on the 
screen at once. 

When compiling don't forget 
to set Compiler Options: 

NO LKKOR CHIiCKING 

& MAKB SMALLEST 



Good luck. 



'IST.w «>|)ci«l1:ig:HNI': imkiJM'S 

p<x):M<)VI':.l Oldliu5+2,$74:M()VK.IOIdinl I +2,$64 

MOVK.w «$7m,inlcna:MOVE.w Oldlnt,dO 

M()VK.b#-l,$bfdO(K) 

OR.w #$cO(K).dO:MOVE.w dO,inlena:CLR.w openflagiRTS 

OIdlnl:l)c.w() 

OldliUhJMP-I 

Oldlnt5:JMP-l 

_readscr: 

MOVE.wrbig(pc),dO:CMI».wrend(pc).dO:BNENotEmpt 
M()VEQ# l,dO:RTS 
NolIimpi:MOVE.b rcadbuff(pc,d0.w),dO:ADI).b#l ,rbig+l :RTS 

Readint: 

B TST.b#3,inlreqr:BEQ OidlntS 

MOVEM.Id(VaO,-(a7):MOVE.wrend(pc),dO:LEAreadbiin(pc,d0.w),aO 

MOVE.b scrdatr+l ,(aO):AI)l).b# I .rcnd+l 

MOVEM.I(a7)+,dO/aO:MOVE.w#$0800,intreq:RTE 

rbig:I)c.wO 
rend:l)c.wO 
rcadbulf.Dcb.b 256,0 

writescr: 
"and. w#$f f,dO:OR.w#$ lOO.dO 
MOVE.wwrend(pc),d I :LEA writebuff(pc,d I .w),aO 
MOVE.wdO.(aO):AI)D.b#2,wrcnd+l 
CMP.wwbig(pc).d I :BNE biitTed:MOVE.w#$8001 jntrcq 
biilTed:RTS 

Writelnt: 

BTS r.b#().intreqr+l :BEQ Oldlnt I 

M()VE.wd().-(a7):MOVE.wwbig(pc),dO:CMI».wwrend(pc),dO:BEQ 
NoMore 

wcm:BTST.b#5,scrdatr:BEQ wem 
MOVE.w writcbiilT(pc,d().w),scrdat: AI)I).b#2,wbig+ 1 
NoMorc:MOVE.w (a7)+,dO:MOVE.w #$0(X)l ,inticq:RTE 

wbig:I)c.w() 
wrend:l)c.wO 
writcbult :l)cb.b 256,0 



nuiubulTcdiOcwO 



LISTING I 



Simon. 



()|K'iiS(Ti:ii:Sdlt:iinl2l()() 

I'ind.SciTrii 

w$=^"SliUIAL I'OR'I' TliS I AlOr nmnlKi to auto dial" 

Si/cLiiiills32,32.-I.-l:\Viiidow*-(^o '^w U'^a kgre")^ 

0,0, 1 7,640. 128,$ l(M)l>$, 1 .2:\ViiidowInpiil 



Repeat 




a$=hikey$ 




If a$<> riien WriteSer Asc(a$) 




x=WCiinsX 




l)=KeadSer 




Ifb=8ANI)x>7 


\hackspace 


\Vlj>eate x-8,\VCiirsY:I»riin " 




WLtK'ale x-8,VVCiir.sY 




Endir 




irb=l3TlienNI»niit "" 


•jet urn 


lfb>l3TheiiIVmlChr$(b) 


■M'iiiil? 


IJiilil Eveiif-$2(K) 


,(losr wimhw 



LISTING 2 



The speaklib opens the 
narrator.device and the 
transhuor hbrary, adding 
commands to Blitz that allow 
you to drive the Amiga's 
speech synthesiser. 

As with the serial port library 
you should familiarise yourself 
with the Libraries section of the 
User Guide before attempting 
to get speaklib up and running. 

The Translator Lil>rary 

The translator. library is a 
standard Amiga library 
containing the one command 
Translate (linglStr, IlngLcn, 
(AFrR)&PhonBuffcr, 
BUFLEN). JIbinit: calls the 
Exec routine OpenLibrary with 
a pointer to the name of the 
library (in lowercase) and a 
version number. Exec returns 
the Library base which we store 
in the loacation TransBase. 

To call the translate function 
in the _spcak and _translatc 
routines we put TransBase in 
register a6, string length in dO, 
bufferlcngth in dl, string in aO, 
and buffer location in al . Then 
we use JSR -30(a6) to call the 
translate function in the 
translator.library. 

The Narrator Device 

The narrator.device is a 
standard Amiga exec level 
device (not to be confused with 
a DOS device). 

The Exec call _OpcnDcvice 
is used to set up the device for 
our use. To communicate with 
a device we need to set up an 
lORequcst structure. The way I 
have done it in this program is 
to set out all the values needed 
(10Re(i..I0End) and then poke 
the ncccsary values such as the 
Task, an alkx:ated signal bit 
etc. into this memory. 

More information about 
devices and lORcquests, as 
well as better wavs to set them 




#spcaklib=50 

llibhcadcr |#spcaklib,init,0,rmit.O} 

lastatcmcnt 

!args |#stiing) 

ilihs 

!subs |_spcak,0,0) 

Inanic |"Spcak","string") 



laslalemcnt 

!aigs |#\vor(l,#\vorcl,#wor(l,#w()r(l,#word,#wor(l ) 

!libs 

isiibs |_sctvoicc,0,()| 

Inanic-} (#n» »nOw •.•'n«'> 

I "SclVoicc",''ratc( IM)),pilcli( I l()),cxpiession( 1 ),scx,v()liinic(Cv1),lra|(222()<)r 

tafunction |#slring) 

largs {#slring) 

llibs 

Isiibs I. nanslalc.O.O) 

Inanic { " lianslalc$","rcUinis phoneme translation of string" ) 

lastatcmcnt 

largs |#string| 

llibs 

Isiitis |_.phospcak,().()) 

Inamc i"PhonclicSpcak","phonctic string") 

inif.lniillsubjIibinit.O.O) 
nnil:lniillsiib{librinit,0,0| 



llibnn 



ni: 



n2: 



n3: 



n4: 



n5: 



n6: 



_spcak: 



CMP 

ni»L 

MOVE 

CMP 

KM I 

MOVE 

CMP 

BPI. 

MOVE 

CMP 

ItMI 

MOVE 

AND 

AND 

CMi» 

HPL 

MOVE 

CMl» 

HPL 

MOVE 

CMP 

BMI 

MOVE 

MOV EM 

MOVEM 

HIS 

MOVE.I 

MOVE.I 

MOVE.I 

LEA 

MOVE.I 

MOVE.I 



#40,(10 

nl 

#40,d0 

#4(K),dO 

n2 

#400,dO 

#65,dl 

n3 

#65,dl 

#32().dl 

n4 

#320,dl 

#l,d2 

#l,d3 

#64,d4 

n5 

#64,d4 

#500(),d5 

n6 

#.*i(H)(),d5 

#28()()0,d5 

n7 

#28()(K).d5 

dO-d3,ralc 

d4-d5.vol 



dO.aO 

-(a2).d() 

a6.-(a7) 

spklnilT{pc),al 

#l024,dl 

TransBasc(pc).a6 



\clip all parameters 






C 



r^(k bV-f2ofrs.feS 



\(IO=su'm}» 
•,-(a2)=Mrin^ U'lififh 
,save a6 



up will be tackled in the next 
issue of Blitz User. 

If you want more info now, 
the Amiga ROM KERNEL 
manual Covers devices pretty 
thorougly if not a little 
confusingly. Better still, ask a 
C programmer. 

_setvoice: The 5 parameters 
rate (words perminute), pitch, 
expression, sex, volume and 
frequency can be changed with 
this command. One thing I 
haven't been able to do is get 
speak to sing, can anyone help? 

_speak: The main command. 
The string parameter passed is 
first sent to the translator 
library to be converted into 
phonemes, the result is then 
passed to the narrator.device in 
a standard lO packet. 

.translate: Converts the 
string parameter to phonemes 
and returns the result without 
passing it to the 
narrator.device. 

_phospeak: Sends the string 
directly to the narrator device 
(parameter should just be made 
up of phonemes). 

Jihinit: 0|)cns both the 
narrator.device and translator 
library. 

Jibfinit: Closes both the 
narrator.device and translator 
library. 

If libinit fails to open either 
device or library it uses the 
1'kAP m) system to report the 
error. H runtime errors is 
enabled Blitz will intercept any 
Trap/^O's and print the message 
pointed to by DO. 

I have had a few problems 
with this library in that 
sometimes it does not close 
properly and the machine must 
be rebooted before the 
narrator.device can be 
successfully re-o|iened. 
Hopefully someone can help 
out. 

Also set tab to 12 for setting 
out the listing as printed. 



JSR 


-30(a6) 


jranslale text to buffer 


MOVEQ 


#0,dO 




LEA 


spkbuff(pc),aO 




srchnull: ADDQ 


#l.dO 




rsr.b 


(aO)+ 




BNE 


srchnull 




MOVE.W 


#3, SCommand 


'^end message to narrator 


MOVE.l 


#0,_Offset 




MOVE.1 


#spkbuff._SData 




MOVE.1 


dO. SLen 




MOVE! 


4,a6 




LEA 


10Req(pc).al 




JSR 


SendIO(a6) 




MOVE.1 


(a7)+.a6 


\restore a6 


RTS 






translate: MOVE.l 


d0.a3 


\take string 


MOVE.l 


d0.aO 




MOVE.l 


-(a2),dO 




MOVE.1 


a6,-(a7) 




LEA 


spkbuff(pc).al 




MOVE.l 


#1024,dl 




MOVE.l 


TransBase(pc),a6 




JSR 


-30(a6) 




MOVE.l 


(a7)+,a6 




MOVEQ 


#0.dO 




LEA 


spkbuff(pc),aO 




srchnulI2: ADDQ 


#l,dO 




MOVE.b 


(aO)+.(a3)+ 


\add result to string buffer 


BNE 


srchnull2 




RTS 






_phospeak: MOVE.l 


a6.-(a7) 


\send string straight 


MOVE.1 


dO,a3 


\to narrator 


MOVE.W 


#3^SCommand 




MOVE.l 


#0,_Offset 




MOVE.l 


dO, SData 




MOVE.l 


-(a2),_SLen 




MOVE.l 


4,a6 




LEA 


IOReq(pc).al 




JSR 


ScndlO(a6) 




MOVE.l 


(a7)+,a6 




RTS 






libinil: LEA 


Translator(pc),al 


',open Translator library 


MOVE.l 


4,a6 




JSR 


_.0|)cnLibrary(a6) 




MOVE.l 


dO.TiansBasc 




BEQ 


failed 




LEA 


Narrat(>r(pc),a() 


\open Narrator device 


MOVEQ 


«().(|{) 




LEA 


l()Kc(|(|x;),al 




MOVEQ 


m,(i\ 




JSR 


OpenDevice(a6) 




TST.l 


dO 




BNE 


failed 




MOVEQ 


#-l.dO 


,allocate a signal 


JSR 


AllocSignal(a6) 




MOVE.b 


dO, SigBil 




rsT.i 


dO 




BMI 


failed 




SUB! 


al.al 


■,al=0 


JSR 


FindTask(a6) 




MOVE.l 


d(),_Task 




MOVE.l 


#aiidchan,ch_masks 


MOVE.W 


#4,nin_masks 




MOVE.b 


#0,mouths 




R'lS 







failed: 


MOVK.I 


#report,dO 






TRAP 


#0 




report: 


I>c.b 


"Failed To Open Speech Library",0 1 


libnnll: 


MOVK.I 


a6.-(a7) 






MOVE.I 


4,a6 






LKA 


IORcq(pc).al 






JSR 


Abort IO(a6) 






LEA 


IOReq(pc),al 


\cloxe Narrator device 




JSR 


Closcl3cvicc(a6) 






MOVICQ 


#0,dO 


'J'ree signal hit 




MOVE.b 


_SigBit.dO 






JSR 


_FrceSignal(a6) 






MOVE.I 


TransBase.al 


:close translator library 




JSR 


CloscLibrary(a6) 






MOVE.I 


(a7)+,a6 






RTS 






Translator 


Dc.b 
ICvcii 


"iranslator.library" 


,0 


Narrator: 


Dc.b 
Even 


"narrator.de vice", (J 




TransBasc 


: Del 







lORcq: 


Del 


(),() 


;Messa}ie 




Dc.b 


5,0 






Del 









Del 


StdMsgPort 




MsgLcn: 


Dew 


lOEnd-IOReq 




_SIX^v: 


Del 


0,0 


\device,imit 


_SCoinmaiul: < — v.— . 


V Dew 







Deb 


0,0 


■Jlafis.error 




Del 





\aclual 


SLcn: 


Del 





•Jenfith 


SDala: 


Del 







.Offset: 


Dei 







rale: 


Dew 







pitch: 


Dew 







mode: 


Dew 







sex: 


Dew 







ch_iTiasks 


Del 







nni_masks 


: Dew 







vol: 


Dew 







sanipfreq: 


Dew 







nioiKhs: 


Dc.b 







chantiiask 


Deb 







niimchan: 


Deb 







pad: 


Dc.b 







lOliiid: 








aiidclian: 


Dc.b 


3,5.10,12 




StdMsgPoH: Del 


0.0 


\No(le 




Deb 


4,0 


Uype.pri 




Del 





\sname 


.Mags: 


Deb 







SigHit: 


Deb 







"Task: 


Del 







_List: 


Del 


List+4.0, List 






Deb 


0,0 


Uypc.pad 




Even 






spklnilf: 


Dcb.b 


4096.0 


Listing i 



:lilitzSayprof;ram to test speaklih 



MndScrcen 

Propdadget 0,83, 1 5,320, 1 , 1 96,9 

SetnPropO,l,0,.0625 

Prop(;adRet 0,83,26,320,2, 1 96,9 

ScinPropO,2,0,.()625 

Prop(JadRct 0,83,37,320,3, 1 96,9 

SeniPropO,3,0,.0625 

PropCJadKct 0,83,49,320,4, 1 96,9 

SetllProp 0,4,0..0625 

Hordcrs On:nordcrPen.s l,2:Bordcrs4,2 

SiringCadgct 0,8,82,0,7,256,328 

(tadKcUam 0:Gadge(Pcn.s 1,0 

TexUIadRct 0,9,65.1 ,5,"EXPRRSSION" 

TexKIadgel 0, 105,65, 1 ,6,"l'liMALIi" 

Text(;adKcl (),227,65,0,8,"SAY H AGAIN!" 

SIzeLlmlLs 32,32.-1,-1 

Window 0,80,64,352,99,$ I (X)n."BLriy. SPEAK", 1,2,0 

VVLocatc 32,5:WJam 0:VVCoIour 1.0 

Print "RATE:" 

WL»Kale26,l6 

Print "PITCH:" 

VVLiK-ate 17,27 

Print "VOLUME:" 

WLocate -2,38 

Print "FREQUENCY:" 

DEITY PE w 

r=l50:p=l I0:v=64:f=22200 

Repeat ;main loop 

SctVoicc r.p,c,s.v,f 
WJani 1 

Wi.ocatc 280,5:Print r," " 
Wr.ocate280,l6:Printp," " 
WLocate 280,27:Print v," " 
WLocatc 280,38:Print f," " 

ActivateSt ring 0,7 
VVVail 5 

ev.l=VVaitEvent \waitfor a window event 

ircv=$40 
Select Cadgetl lit 

Ca.se I :i-40+36()*IIPropP<)t((), 1 ) \rale 
Ca.sc 2:p=65+255*llI»ropPot(0,2) ,pitch 
Ciisc 3:v=64*IIPn)pl*ot(0,3) ^volume 

Ca.sc4:f=5(KX)+23(XK)*nPropP«l(0,4) Jrecpiency 
Ca.sc 5 :e= I -e 'Jofifile expression 

Case 6:s= I -s :tof>f>le female 

Ca.se 7 istiinf^ ^icd^t't 

a$=StringText$(0,7) 
Speak a$ 
ResetString 0,7 
Case 8 
SiK'ak a$ 

End Select 
Endir 

ircv=$2(X) Then End \close Window f^adf^et 

lM)rever 



Li St it] g 2 



The following is a dcscriplion of 
IntuiToois ihc user interface editor 
that conies with Blitz 2 and then a 
tutorial to set up a simple phonebook 
data base system. 

lntuiTtH)ls is a utility for designing 
and creating user interfaces for Blitz 2 
applications quickly and easily. Pull 
control of Screen, Window and 
Gadget parameters let you 
interactively build and test front ends 
(user interfaces) as complex as you 
wish. 

To begiri with we shall run through 
each of the menu items and their use, 
then cover some of IntuiToois quirks 
and lastly, a tutorial which will lead 
you through the steps needed to create 
an interface with IntuiToois. 

The Menus 

PROJECT MENU 

LOAD lets you edit previously saved 
interfaces. 

SAVE stores the interface to disk so 
you can redesign/ edit it later. 
CREATE SOURCE generates Blitz 2 
code to be inserted into your program. 
QUIT is something you contemplate 
when unhappy with your job, 

SCREEN MENU 

PALE1TE lets you adjust the screen 
coloms used by your program 
OPTIONS enables you to change the 
resolution and other screen allribules 

WINIX)W MENU 

ADD 1 EXT lets you place text 
anywhere in your window. 
riiS r lets you play with your 
interface just as if your pro^rrani was 
running, click in the top left window 
to exit le.sl mode. 
OPTIONS lets you adjust window 
options as detailed in the Blitz 2 
reference manual. 

GADGETS MENU 

TEXT creates a button with writing 
on it 

STRING creates a string gadget 
which enables the u.ser to enlcrc text 
via the keyboard. 

PROP is a slider gadget that enables 
the user to adjust variables accurately. 
SI I APE creates a button with a 
graphic on it, the graphic should be an 
lEP' brush (as created by DPaint etc) 
and Ix; in the same resolution as your 
screen. 

Po.sitiuiiiiig (ludgels 




After you have entered the 
relevant information for a gadget a 
second window appears. You may 
select whether tl»e gadget's position is 
is relative to the lop or bottom and 
left or right of the window. This is 
only important when the window is 
sizable. 

If the gadget is relative to the 
bottom right, sizing the window will 
mean the gadget is repositioned to the 
new bottom right of the window. 

After clicking on MAKE you must 
position the gadget in your window 
with the left mouse button. 

Ciidgct Numbering 

Each gadget you add to your 
window needs a specific number 
known as it's ID. 

No two gadgets in a window can 
share the same ID. 

If your application will have more 
than one window it is a good idea to 
use different ID numbers for each 
window's gadgets also. However 
EventWindow can be u.sed to 
differentiate gadgets if each window 
has a gadget with the same ID. 

Sometimes leaving some spare ID 
numbers between groups of gadgets is 
a giKHl idea if you are to u|)date the 
interface later. If you have 4 prop 
gadgets and then a set of 6 text 
gadgets start the text IDs at 10 .so that 
if you ever need to add another prop 
gadget ti) the set you can niuiiber 
them .5,6.. 

Confused? 

IDon't worry read this section 
again alter you've done the tutorial. 



Paste Mode 

Once you have added some 
gadgets to your window you may 
wish to copy, delete, move or 
duplicate Ihem. By clicking on the 
gadget once you will 'pick it up'. 

To delete the gadget just pick it up 
and then click the right button, the 
gadget will disappear. 

To move the gadget pick it up, 
move the mouse to the desired 
position and click the left button to 
paste it. Then click the right button to 
exit paste mode. 

To duplicate a gadget pick it up, 
position and click the left button as 
many times as you want and then hit 
the right button to exit paste mode. 

Tutorial 

Before trying this tutorial it's a 
good idea to re-familiarise yourself 
with screens, windows and gadgets 
by reading these chapters in the Blitz 
reference manual. 

First, a hires .screen... 

Select the Screen/Options menu. 
Click in the gadget to tlie right of 
TITLE:. This is a string gadget. 
Delete the contents by .selecting 
Amiga X which is a keyboard 
shortcut to empty the contents of a 
siring gadget. Now ty|K' in the name 
of your application and hit return. 
PI lONE B(X)K will do for this 
application. 



; phone lutok program hy simon 



FiiulScrcvn 



:tlu' foHowini' should he impoiteiljrom the file rain:i a\ creaWil in the Uitoiial 



Borders OniBorderPens 1.2: Borders 4,2 
StringCadget 0,72,12,0,1,40.239 
StringGadget 0,72,27.0,2,40.239 
StringCJadgct 0.72.43.0.3.40.239 
St ring(;adgcl 0,72.59,0.4.40,239 
Gadget.|am ():(;adgctPens 1.0 
Text(;adget 0.8.75,0. 1 0."NEW ENTRY" 
Text(;adgcl 0.97.75.0,1 1, "I <" 
Text! Jadgct 0,1 29.75,0. 1 2."«" 
'TcxKJadgct 0. 1 6 1 .75,0. 1 3,"»" 
TcxtCiadget O.I 93.75.0, 1 4.">l " 
TcxUJadget 0.226,75,0. 15,"DIAL" 
TexiGadget 0,270,75.0, 1 6,"LABEL" 



Click on the gadget to the right of 
mode until it reads HiresNonlnterlacc. 
This is the typical resolution for an 
Amiga application. A depth of 2 gives 
your screen 4 colours. Height should 
be set to 256 for PAL/Europcan 
markets and 200 for NTSC/American 
markets. Because this application will 
be using the workbench screen we 
need to set hires with a depth of 2. 

When you select DONE the 
IntuiTools will reconfigure the 
display for the new settings. 

Next, a draggable window and 
some gadgets... 

Now drag the window so it takes 
up about 1/4 of the whole screen. 

Note: to use the sizing gadget in 
IntuiTools you need to click on the 
very bottom right of the window. 

First wc need to add some text to 
our window that will explain what our 
string gadgets represent. Select the 
Window/ Add Text menu and type 
Name then click on MAKE. Position 
the text in the top left. Add 'Address' 
and 'Phone' under name. 

Now select the Gadget/String 
menu. Click on Make then Make. 
Position the box to the right of the 
'Name:' text and holding the left 
mouse button drag the box across to 
just before the right edge of the 
window. We now have a string gadget 
that the user can type in their name, 
it's ID should be I. 

Using paste mode we need to add 3 
more gadgets the same as our name 
string gadget. Pick it up with the left 
mousebutton, paste it straight back 
down again with the left button then 
paste 3 more times below. Then click 
on the right mouse button to exit paste 
mode. 

Four gadgets and 3 titles? Thats so 
we can have two lines for address, 
using paste mode move the text 
blocks so they align property with the 
gadgets. Click once to pick them up, 
click again to put them down in their 
new position and then click the right 
button to exit paste mode. 

Right now for some control 
gadgets for our phone book. Using the 
Gadgets/Text menu option type '«' 
in the top field. Then click on 
MAKE.Type 10 into the gadget ID. 
Starting our control gadgets at 10 
separates them from the string 
gadgets. Now click on MAKE and 
add our rewind button to the bottom 
left. 

Use the same procedure as above 
to add a forward gadget, a 'PRINT' 
gadget and a 'DIAL' gadget. Now 
select SAVE to save our interface as 
"phoncbook.int", and then select 
CREATE SOURCE to generate some 
Blitz 2 source code use a filename 
such as "ramitcmp". The Listing is the 
data base program that uses the 
interface wc have just designed. 



SizcLimlts 32.32,-1,-1 

Window 0,0,24,331, 9 1,$100E,"MY PHONE BOOK",1,2,0 

VVLocatc 2, 1 9:VV,Iam 0: WColour 1 ,0 

Print "Address" 

WLocatc 19,50 

Print "Phone" 

VVLocate 27,3 

Print "Name" 

; andnowwe start typing... 

#num=4 \4 strings for each person 

NEVVTYPE person 
info$[#num] 
End NEWTYPE 

Dim List people.person(200) 

USEPATH peopleO 

I f Read File (O,"phoncbook.data") ;read in names etc from sequential file 
Filclnput 
While NOT Eor(0) 

IfAddltcnUpcopleO) 

For i=0 To #num-l :\info[i]=Edit$(128):Ncxt 
Endlf 
Wend 
Endlf 

RcsctList pcopleO 

If NOT Ncxtltcm(pcople()) Then Addltcm peoplcO ;if empty add blank record 

refresh: 
ref=0 

For i=0 To #num-l :SetStrlng 0,i+l,\info(i]:Rcdraw 0,i+I :Ncxt 
ActlvateString 0, 1 : V Walt 5 \ 

Repeat 

ev.l=VVaitEvent 

irev=$200 \close window event 
Gosub update 
If WrltcFilc (0,"phonebook.data") ;save data to file 

FilcOutput 

RcsctList peopleO 

While NcxtItcni(peopIe()) 

For i=0 To #num-I :NPrint \info[i]:Ncxt 

Wend 

CIoscFilc 
Endlf 
End 
Endlf 

If ev=64 

If GadgctHit=#num Then ActivatcString 0,1 

If GadgctHit<#num Then ActivatcString 0,GadgctHit+l 

Select Gadgctllit 

Case 10:Gosub update:If AddItcm(pcople())Tlicn ref=I 
Case 1 liGosub update:If FlrstItcm(peoplc()) Then rcf=l 
Case 12:Gosub updaterif PrcvItcni(people()) Then rcf=l 
Case 1 3:Gosub updatcilf NcxtItcni(pcoplc()) Then rcf=l 
Case 14:Gosub update:lf LastItem(peoplc()) Then ref=l 
End Select 
Endlf 
Until rcf=l 
Goto refresh 



update: 



For i=0 To #num- 1 :\info[iJ=StrlngTcxt$(0,i+ 1 ):Ncxt 
Return 



;PlwneUook Ustinf* 



ShapesMaker is a utitility for 
importing groups of brushes 
such as animations into BHtz 2 
quickly and easily. 

The following is a tutorial 
that quickly covers generating 
an animbrush in Dpaint 3, 
laying it out on a page for 
ShapesMaker to use and then 
converting it to a shapes file 
that Blitz 2 can load using 
ShapesMaker. 

For this tutorial you will 
need to own a version of 
DpaintS or higher. 

A Spinning Animbrush 

Selecting lo-res 8 colour 
mode when you first run 
DPaint, design a logo or shape 
that will look good spinning, 
don't make it to big. 

Once you are happy with it 
save it as a brush just in case 
we run into difficulties later on. 

With your logo positioned in 
the middle of the screen cut it 
out with the right button, this 
will make a brush but also erase 
the image from the screen. 

Select the Anim/Frames/Set# 
menu item and tyi^e 16 into the 
siring gadget. This creates 16 
frames for your animation to be 
'sequenced* through. 

Now select the Anim/Move 
menu. Set the Y rotation to 360 
thats the second box along, 
second down. When you click 
on preview DPaint should 
indicate the area and 
perspective the shape is going 
to rotate through. 

If all looks OK select draw. 
Dpaint should then draw each 
frame of the spin on the 1 6 
consecutive frames and leave 
you back with the numbers 



1/16 at the top left. This is 
which frame you are currently 
viewing. Now select the 
Anim/Anim Brush/PickUp 
menu. 

Just as if you had selected cut 
out brush cut out the shape. 
When you release the mouse 
button DPaint stores each frame 
in an *anim-brush'. (Blitz 2 will 
soon support this format). 

Laying Out the AnimBrush 

After doing a pickup anim 
brush you can clear the screen. 
Because there is more than 1 
frame DPaint will ask which 
frame, select current. Now move 
to the top left and click the 
button. The first frame of the 
brush will be put on the screen, 
moving to the right click again, 
the second frame will be pasted 
to the screen. When you get to 
the right of the screen move 
down and start at the left again. 
Note: always make sure that a 
veilical and horizontal strip 
separates each frame. 

If all is correct you should 
have the 16 frames of the anim 



on the one screen. This is the 
format ShapesMaker requires. 
Select Picture/Save and save the 
frame. 

If you did not have enough 
room, save the anim brush, set 
up a bigger screen, hires for 
example, reload the animbrush 
and paiste the 16 frames onto 
the new screen. 

Running ShapesMaker. 

After saving the screen with 
the 16 frames layed out with 
gaps between all shapes quit out 
of DPaint and run ShapesMaker. 
Select the Load menu and select 
the picture file that you created 
in DPaint. Because it is a 
spinning logo we will want the 
handle to always be in the centre 
so select this option from the 
menu. 

Now select Convert. Enter a 
filename, such as logo.shapes 
and hit return. If the converter 
does not generate 1 6 frames you 
must not have had a suitable gap 
between shapes. 

Thats It! Try the listing below 
to get your shape spinning on an 
Amiga screen. 



Screen 0,3 
ScrccnsHitMapO,0 

Queue 0,1 

LoadShapes 0,"h:test.shapes" 

Repeat 

Fori=0Tol5 
VWait4 
UnQueue 
QBIitO,i,160,100 
IfJoyb(0)>OThenEnd 
Next 
Forever 



This is the first installment of 
what will hopefully be a 
commercial quality game. It's a 
rotating shoot'em up using 
some very fast polar coordinate 
type algorithms to get some 
smooth, curving alien flight 
paths. 

The play field is 1024x1024 (4 
screens wide, 4 high). It*s both 
keyboard and mouse control. A 
few ideas might work out quite 
well, like firing gives you 
negative inertia and aliens 
rotate and thrust at different 
speeds giving them each some 
pretty unique characteristics. 

Polar Coordinates 

For those that haven't done 
much maths, there are two 
main types of coordinate 
systems, cartesian and polar. 
Cartesian is simply the x axis, y 
axis system. The polar system 
uses rotation and length to 
work out position i.e turn 
NorthEast and walk thirty feet. 
The main mathematics 
involved when converting 
cartesian to polar are: 
The angle formed when you 
move X steps across and y steps 
up is given byArcTangent(y/x) 
The distance moved when you 
move X steps across and y steps 
up is the Sqrt(x*x+y*y) 
Listings 1 & 2 combine to give 
you the above two functions. I 
developed them for my 3D 
library. If these techniques have 
not been used before I would 
appreciate credit if they end up 
in commercial software. 
Hmmm, now, how do they 
work.... The first listing 
generates the hex look up tables 
needed, (if you want speed use 
tables). The second are inline 
machine code functions that 
calculate (using the tables) the 
functions angle and length as 
detailed above. 

The properties of a right angle 
triangle is the basis of most 



trigonometry. 


and with (ii) we can get 


For the Mathematicians: 


h=a/Cos(angle) which with(iv) 


If a=adjacent, h=hypotenuse 


h=a/Cos(o/a) 


and o=opposite we know that 


which with a little machine 


(i) Sin(angle)=o/h 


code magic gives us our two 


(ii) Cos(angle)=a/h 


functions with 1 divide as the 


(iii)Tan(angle)=o/a 


maximum. 


From(iii)we get 




(iv)angle=Atan(o/a) 


Enough! On with the game.. 


; table generator 




DICFlYPEfa 




IfWritcFilclO/'arcinc") 




FilcOutput 




Fori=0To5n 




a=Iiit( ATan(i/5 1 2)*8 1 9 1 /ATaii( 1 )) | 


Print Mki$(a) 




Next 




CloscFilc 




Endlf 




lfVVritcFilc(0,"lcn.inc") 




FilcOutput 




Fori=0To511 




a=Int(Cos(ATan(i/5 1 2))*65535) | 


Print MkilKa) 




Next 




CloscFilc 




Endlf 






Listing 1 



\imVmk (no recursion) 

\dO=width 

\dl ^height 

\kludge if equal 

\dO-greater side 

;if short side len=otlier 

•Jook up=sliort/long 



Funclion.w distance ( x 1 .w,y I .w,x2. w,y2.w ) 

UNLK a4 

sun d2,dO:BPL xpos:NEG dOixpos 

SUB d3,dl:BPL ypos:NEG dl:ypos 

CMP dO,dl:BEQ kludge 

BMIygtx:EXGdO,dI:ygtx 

TST dl :BNE yne:RTS:ync 

SWAP d 1 :CLR d 1 :DI VU dO.d 1 :LSR#7,d 1 

ADDdl.dl:SVVAPdO 

DIVU lvals(pc,dl.w),dO:RTS 

khidge:MULU #27 146.dO:SWAP dO: ADDd 1 ,dO:RTS ; multiply bysqrt(2) 

lvals:IncBin "len.inc" 
End Function 

Function.w angle { x 1 .w,y I .w ) 

UNLK a4 \unlink 

MOVEQ#0,d2 \d2=quadrant 

TST d I :BPL hpos:MOVEQ# 1 6,d2:NEG d 1 :hpos \y positive 

TST dO:BPL wpos:EOR#8,d2:NE(; dOiwpos \x positive 

CMP dl,dO:BMI nolsleep:BNE ncq 

MOVFJ$2(X)0,dl:BRA now:neq 

EOR #4,d2:EXG d 1 ,dO:notstccp 

TST dl :BNE nonow:MOVEQ#0,dl :BRA now:nonow 

EXT.IdO:SWAP dO:I)IVU dl.dO:LSR#6.dO:AND#1022,dO 

MOVEarc(pc,dO),dl 

fIow:MOVE.l oct(pc,d2),dO:EOR dO,dl :S\VAP dO:ADD dl,dO:RTS 

oct:Dc.w 0.0,$4000,- 1 ,0,- 1 ,$cOOO,0 

Dc.w $8000,- 1 ,$4000,0,$8000,0.$COOO,- 1 

arcJncBin "arc.inc" 
End Function 

Listing 2 



Line by Line 

The first line inserts the 
program qfuncs.bb from the 
previous page, so make sure 
you use the same name other 
wi^e Bhtz won*t be able to 
include our qfuncs.bb. Don't 
forget that qfuncs also includes 
the tables generated by listing 1 
so keep everything in the same 
directory. 

Double Buffering 

To acheive a smooth flicker 
freegame we need to use a 
doublebuffered display. This 
means we have two displays, 
after drawing up a display we 
show it and draw on the other 
one. This means we are never 
drawing to the same display 
that is being shown on the 
monitor. So, we need two 
bitmaps and two queues (see 
QBlit explanation in the 
reference guide). 

Stars 

The .star type holds coordinates 
and colour information for the 
stars. Because we are using a 
double buffered display the 
drawstars routine needs to 
know their position from two 
frames ago so it can 'unplot' 
them (same reason we need two 
queues) so px,py hold last 
frame's screen coordinates and 
ppx.ppy holds the frame before. 

Phiyfidd 

As mentioned the playfield is 
1 ()24x 1 024. Instead of scrolhng 
the playfield around using a 
large bitmap we calculate alien 
and star positions relative to the 
player who stays in the middle 
of the screen. 

However we use a 32 pixel 
nonvisible 'frame' around the 
bitmap so that aliens can enter 
and exit the display smoothly. 
To do this we use a slice that 
displays 320x200 pixels and 



INCLUDE qfuncs.bb 

NEWTYPE .star 

x.w:y:c:px:py:ppx:ppy 
End NEVVTVPE 

NEWTYPE ship 

x.w:y:roi:thrust:rspeed:id:xv:yv:px:py 
EndNEVVTYPE 

Dim List nme.ship(50) \enemy 
Dim List bul.ship(50) \bullets 
Dim s.star(50) \stars 

Dim qsin.qC 1 023) '^ook up tables 

Dim qcos.q( 1023) 

me.ship\x=0.0,0,0,0,0,0 

BitMap 0.320+64,200+64,3 \doublebuffered display 

BitMap 1,320+64,200+64,3 

BitMap 2,640,36,3 Jiires 8 color score+scanner 

Queue 0,50 

Queue 1,50 

BLITZ rsetiip blitz display 

Mouse On 

BlitzKeys OniBitMapInput 

Slice 0,46,320,20O,$ffre.3,8.8.32O+64,32O+64 
Slice 1 ,248,640,36,$fff9,3.8,8,640,640 
Use Slice 

Gosub setupships [setup everything 

Gosub setupstars 
Gosub setupsincos 
Gosub setupnme 
Gosub setupdisplay 

While NOT Ra\vStatus($45) ]main loop (exit on esc key) 

VWait 

Show db,32,32 

db=l-db 

VsQ BitMap db 

UnQueuc db 

Gosub drawstars 

Gosub drawnmc 

Gosub dravvbullets 

(losub movcship 
Wcucl 

ICnd 

.scl(i|Hlispiny 

Use Slice 1 :Slio\v 2 

Use BitMap 2:BitMapOutput 2:Cls 

Locate 0,0:Colour 3:Print "Buzz Bar Blitz" 

Box 320-32,0,320+33,34,3 

Use Slice 

Return 

.nioveship 

If Ra \vStatus($3 1 ) Then me\rot- 1 024 
If RawStalus($32) Then mc\r()t+1024 
iuc\rol+(MouseXSpeed *200) 
If RawS!atus($38) OR Joyb(0)&2;//jrM57 

mc\xv+iisin((me\rol LSR 6)&1023) ASL 4 
me\yv-qcos((me\rol LSR 6)&1023) ASL 4 
Endlf 

If Ra\vStalus($39) OR ioyh(0)&\ fire 
If Addltcm(bul()) AND rl=0 



bitmaps that are 320+64, 
200+64 large. The Show 
db,32,32 command in the main 
loop positions the larger 
BitMap correctly. 

Aliens 

Each alien has an x,y poition as 
well as a rotation, thrust, 
rotspeed (turning speed), id, as 
well as x&y speed, and scanner 
position. 

When we move the aliens we 
calculate the angle you are to 
them, they then turn at their 
rotspeed towards you and thrust 
in the direction they are 
pointing. We then calculate 
their position relative to the 
player and if inside the Bitmap, 
QBlit them and plot them on 
the scanner. 

Numeric Handling 

All x,y coordinates are .w 
(word) types. A word is 16 bits 
and so we use the lower 6 as a 
fixed point fraction. This is 
quicker than using the quick 
type. Wo, lets not get confused, 
a simpler way of looking at it is 
to say the playfield is actually 
65536 wide & each pixel on the 
screen is 64 units wide. To 
calculate pixel positions we just 
ASR 6 (quick divide by 64). 
Don't forget to turn overflow 
checking off in runtime errors 
as we are using overflow to our 
advantage. 

Keyboard Handling 

After entering blitz mode 
BlitzKeys On turns on the 
keyboard handler. Use the 
RawKey table at the end of the 
reference manual to change 
keys used, (ZX,.) are the keys 
used at present. 

Reference Guides 

Setupshapes is covered under 
the Rotate command 14-8 of 
the reference manual. The 



bul()\x=me\x,me\y,me\rot 

bul()\xv=qsin((me\rol LSR 6)&1023) ASL 9+mc\xv 
bul()\yv=-qcos((mc\rot LSR 6)&1023) ASL 9+me\yv 
rl=8 

mc\xv-qsin((me\rot LSR 6)&1023) ASL 5 
mc\yv4qcos((me\rot LSR 6)&1023) ASL 5 
Endlf 

Else 

rl=0 

Endlf 

me\xv-mc\xv ASR 5 \drag 

me\y v-me\yv ASR 5 

me\x+mc\xv 

me\y+me\yv 

QBlit db,(mcVot LSR 1 2)& 1 5, 1 60+32, 1 00+32 

Ifrl>OThcnrl-l 

Return 

.drawnmc 

RcsetList nmc() 
USEPATIInmcO 
While Ncxtltcm(nmc()) 

ang.w=32768-anglc { mc\x-\x,nic\y-\y ) -\rot 

If ang<0 

\rol-\rspced;ro/fl/e towards me 

Else 

\rot+\rspced 

Endir 

\xv+qsin((\rot LSR 6)&1023) * \ihrust\tlirust 

\yv-qcos((\rot LSR 6)&I023) * \thrust 

\xv-\xv ASR 6;drag 

\yv-\yv ASR 6 

\x+\xv ;spe€d 

\y+\yv 

Use BitMap 2:Plot \px LSR 4+309,\ny I^R 5+1 3,0:Use BitMap db 

\px=((\x-me\x) ASR 6)+ 1 60+32 ^ 

\py=((\y-mc\y) ASR 6)+ 100+32 

If RcctsHlt(\px,\py, 1.1,12,1 2.320+32,200+32) 
QBlit db,(Vot LSR 12)«&15,\px,\py 

Endlf 

Use BitMap 2:Plot \px I_^R 4+309,\py LSR 5+ 1 3,4:Usc BitMap db 
Wend 
Return 

.dravvbullets 

RcsctList bul() 
USEPATIIbulO 
While Nextltcni(biil()) 

\x+\xv ,speed 

\y+\yv 

px=((\x-mc\x) ASR 6)+ 160+32 

py=:((\y.mc\y) ASR 6)+ 100+32 

If RcctsUit(px,py, 1 , 1 , 1 2. 1 2,320+32,200+32) 
QBlit db.{\rot LSR 12)&15.px,py 

Else 

Klllltcm bul() 

Endlf 
Wend 
Return 

.drawstars 

For 1=0 To 50 

USEPATII s(i) 

Plot\ppx,\ppy,0 

\ppx=\px:\ppy=\py 

\px=(\x-(mc\xLSR6))&511 

\py=(\y-(mc\y LSR 6))«&255 

Plot \px,\py,\c 
Next 



(|iiick sill/cos look up arrays arc 
covered in the starfield tutorial 
of the user guide. 

Things To Try 

Increase the number in the 
for..next l(X)p of setupnme for 
more aliens. How many before 
the frame rate drops? 

Design your aliens in DPaint 
(lo-res 8 colour) and load them 
in instead of the ugly ones 
generated in setupships. Don't 
forget to be in Amiga mode 
before you do a I^adShapes. 

Design the palette so your fire 
can be a I colour shape, so 
when you blit it (without exess) 
things should be faster. 
Hint: make colour 4=white 

Add a sound effect for the fire. 

Next Issue 

Coming up in the next 
installment we'll add collisions, 
put a null^uKxIem link in and 
drop those horrible stars for ah 
8 colour scrolling backdrop 
using Mark's map editor. 
Hmmm, I Meg only from now 
on perhaps. 



Kcttirii 

.setupships: 

CIsiCirclcf 8,6,6.6,4 Mraw ship 
Line 8.0,4. 1 0,2:Liiic 8.0, 1 2. 1 0,2 
Plot IO,20,2:BoxfO,0,l,IO,2 
Boxf I4,O.I5.l0.2:Boxr5.8,n.lO,3 
CctaShapc 0,0,0.16,l2:MidlIandlc 
Fori=ITol5 

CopySliapc 0,v,f;enerale rotations 

Rotate i,i/ 16 

Midllandici 
Next 
Return 

.seuipslars: 

rori=0To50 

s(i)\x=Rnd( 1 024).Rnd( 1 024),Rnd(6H I 
Next 
Return 

.sctupninc: 

USKPA'm nmcO 

For i= I To 5 

Addltcm nmc() 

\x=Rnd(65535).Rnd(65535).Rnd(65535) 
\lhrusl=Rnd( 1 2)+3,Rnd(256)+256 

Next 

Return 

.scltipsincos 

For i=0 To 1023 

r.f=i*I»i/5l2 

qsin(i)=Sin(r) 

(|cos(i)=C<M»(r) 
Next 
Return 



of-C -for a c^ace^-^ Qpeo.*^ i^^cre<=i^^ , 



- Lfron 



^ C^c^^c^t ^ei (^p ^-f-arS -fo 2o /Ai/«'<\<^^ o"^ ^<^ -for 
•^^ A'^L. r -far rv,€>r<^ i^ro,c4- 



^^or<L spe^^ /Kc^ec<5e-S /^ev^/ 



'S:sc^^. 






